home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2002 February
/
Chip_2002-02_cd1.bin
/
sharewar
/
TopTen
/
kubik.exe
/
{app}
/
Scripts
/
Eurotel.sms
next >
Wrap
Text File
|
2001-12-26
|
2KB
|
43 lines
# Skript pro SMS branu Eurotel
# Verze 1.6
Param
Version 1.6
CountryCode 420
Prefixes 601;602;606;607;723;724;728
FirstMsgSize 150-E
OtherMsgSize 150
MsgCount 5
MsgTime 30
End
Ident
On n_email=\%MyEmail%
Off n_email=
End
Flash
On \%FindTextBetween("<b>Zp∙sob doruΦenφ</b><br>\10\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\<select name=\34\", "\34\ size=\34\1\34\>", 150, 1)%=show
Off \%FindTextBetween("<b>Zp∙sob doruΦenφ</b><br>\10\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\<select name=\34\", "\34\ size=\34\1\34\>", 150, 1)%=sms
End
GetPage
URL http://www2.eurotel.cz/sms/index.html?n_pagestyle=new
Message NaΦφtßm ·vodnφ strßnku.
End
PostPage
URL http://www2.eurotel.cz/sms/index.html
Data \%FindTextBetween("<b>P°edvolba</b><br>\10\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\\32\<select name=\34\", "\34\\32\size=\34\1\34\>", 150, 1)%=\%Prefix%&n_number=\%PhoneNP%&\%Ident%&\%Flash%&\%FindTextBetween("<textarea cols=\34\50\34\ rows=\34\6\34\ name=\34\", "\34\ onBlur=\34\countit(this.form, 0)\34\", 100, 1)%=\%Message%&\%FindTextBetween("<input type=\34\submit\34\ name=\34\", "\34\ value=\34\Odeslat zprßvu\34\", 150, 1)%=Odeslat+zpr%E1vu
Referer http://www2.eurotel.cz/sms/index.html
Message Posφlßm zprßvu.
End
Msg
if "ipravena a" Print "Zprßva je p°ipravena k odeslßnφ." Success
if "na na SMS centrum." Print "Zprßva byla odeslßna." Success
if "budete moci odeslat" Error "Zprßva bude odeslßna pozd∞ji." Queue
if "ete, prosφm, zprßvu znovu.." Error "P°ipojenφ vyprÜelo, zprßva bude odeslßna znovu." Retry
End